home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / colnew.dia.ref < prev    next >
Text File  |  1999-09-16  |  305b  |  26 lines
  1.  
  2. getf('SCI/tests/colnew.sci','c')
  3.  
  4.  
  5. [z,zf]=col1();
  6.  
  7. if maxi(abs(z-zf))>1.e-5 then bugmes();quit;end
  8.  
  9.  
  10. [z,zf]=col2(0);
  11.  
  12. // Fortran Coded version
  13.  
  14. if maxi(abs(z-zf))>1.e-2 then bugmes();quit;end
  15.  
  16.  
  17. [z,zf]=col2(1);
  18.  
  19. // Scilab coded version
  20.  
  21. if maxi(abs(z-zf))>1.e-2 then bugmes();quit;end
  22.  
  23.  
  24.  
  25.  
  26.